home *** CD-ROM | disk | FTP | other *** search
/ HamCall (October 1991) / HamCall (Whitehall Publishing)(1991).bin / bcast / fccrf / vswr.bas < prev    next >
BASIC Source File  |  1990-10-14  |  640b  |  16 lines
  1. 10    PRINT:PRINT"VSWR CALCULATOR ": 'BY J. GILDE & D. HEIDNER
  2. 20    PRINT "This program calculates the VSWR from"
  3. 30    PRINT "forward and reverse power readings."
  4. 40    PRINT
  5. 50    INPUT"Enter reflected power reading ";PR
  6. 60    INPUT"Enter forward power reading ";PI
  7. 70    PRINT
  8. 80    A=1+SQR(PR/PI)
  9. 90    B=1-SQR(PR/PI)
  10. 100   IF B=0 THEN PRINT" **IT'S TOO HIGH!": GOTO 50
  11. 110   VSWR=A/B
  12. 120   PRINT" VSWR = ";VSWR;" to1."
  13. 125   INPUT"ANOTHER ";A$:IF LEFT$(A$,1)="Y" THEN 50
  14. 130   END
  15. 140   ' FROM RADIO WORLD MAY 1 1986 P 24
  16.